home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
wb
/
DropIt.lha
/
DropIt!
/
Install.installer
< prev
next >
Wrap
Text File
|
1994-08-08
|
4KB
|
151 lines
; Installation script for Installer
; Create destination directory
(if (= @user-level 2)
(set @default-dest
(askdir
(prompt "Please give the directory where you want all DropIt! files to be put")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest (tackon @default-dest "DropIt!"))
)
; Copy DropIt!
(copyfiles
(source "DropIt!")
(dest @default-dest)
(infos)
(optional "fail" "force" "askuser")
)
; Copy DropIt! handler
(copylib
(source "L/DropIt!Handler")
(dest "L:")
(optional "fail" "force" "askuser")
)
; Copy whatis.library
(copylib
(source "Libs/whatis.library")
(dest "LIBS:")
(optional "fail" "force" "askuser")
)
; Copy utilities and powerpacker.library
(set answer
(askbool
(prompt "Do you want to copy the Utilities directory ?")
(help "The Utilities directory contains 4 little programs :\n\n - Decrunch (an archive utility),\n - PlaySample (an 8SVX player),\n - ShowILBM (an ILBM reader),\n - ShowText (a text viewer).")
(default 1)
)
)
(if answer
(
(set dest-dir (tackon @default-dest "Utilities"))
(copyfiles
(source "Utilities")
(dest dest-dir)
(all)
(infos)
(optional "nofail" "force" "askuser")
)
(copylib
(source "Libs/powerpacker.library")
(dest "LIBS:")
(optional "fail" "force" "askuser")
)
)
(set x 0)
)
; Copy icons
(set answer
(askbool
(prompt "Do you want to copy the Icons directory ?")
(help "The Icons directory contains some icons for DropIt!. If you don't copy it, DropIt! will use its default icon.")
(default 1)
)
)
(if answer
(
(set dest-dir (tackon @default-dest "Icons"))
(copyfiles
(source "Icons")
(dest dest-dir)
(all)
(infos)
(optional "nofail" "force" "askuser")
)
)
(set x 0)
)
; Create DropIt!.prefs files
(run ("CreatePrefsFile \"%s\"" @default-dest))
; Copy examples
(set answer
(askbool
(prompt "Do you want to copy the Examples directory ?")
(help "The Examples directory contains some files (texts, sounds, pictures) wich can be used to test DropIt!.")
(default 1)
)
)
(if answer
(
(set dest-dir (tackon @default-dest "Examples"))
(copyfiles
(source "Examples")
(dest dest-dir)
(all)
(infos)
(optional "nofail" "force" "askuser")
)
)
(set x 0)
)
; Copy docs
(set answer
(askbool
(prompt "Do you want to copy the Docs ?")
(help "The docs are relative to the following programs :\n\n - DropIt!,\n - Decrunch,\n - PlaySample,\n - ShowILBM,\n - ShowText.")
(default 1)
)
)
(if answer
(
(set dest-dir (tackon @default-dest "Docs"))
(set language (run "CheckFrench"))
(if (= language 5)
(set source-dir "FrenchDocs")
(set source-dir "EnglishDocs")
)
(copyfiles
(source source-dir)
(dest dest-dir)
(all)
(infos)
(optional "nofail" "force" "askuser")
)
)
(set x 0)
)